0 AF=28:GOSUB1000:REM VERSION 7 - GANZ STARK VERBESSERT 1 DIMA$(AF):GOSUB200:OPEN4,4:X$=""+CHR$(13)+" 2 [152]4,"--------------------------------------- 3 PRINT#4,"BASIC KONTROLL SYSTEM ERKLAERUNGEN V7 4 [152]4,"--------------------------------------- 5 PRINT#4,"OBIGE TABELLE GIBT AUSKUNFT UEBER ALLE LEICHTEN UND SCHWEREN FEHLER, 6 [152]4,"DIE IM GETESTETEN BASIC-PROGRAMM AUFGETRETEN SIND. 7 PRINT#4:PRINT#4,"BASIC-PROGRAMM : "N$ 8 PRINT#4,"TESTDATUM : "D$ 9 PRINT#4,"VERSION DES TESTPROGRAMMES: "V$ 10 PRINT#4:IFPEEK(52999)THEN13 11 PRINT#4,"DER FEHLER NR. 2 (UEBERFLUESSIGE LEERZEICHEN IM PROGRAMMTEXT) 12 [152]4,"WURDE NICHT GELISTET, DA ER ZU HAEUFIG AUFTRAT.":[152]4 13 RQ$[178]" RUNTIME-KONSEQUENZEN"[170]X$ 14 [141]100:[152]4,"ERKLAERUNG DER FEHLER: 15 PRINT#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT#4,"BEISPIEL: 16 [152]4," 2720: 17[1] UEBERFLUESSIGER BEFEHL 17 PRINT#4," ^ ^ ^ ^"X$; 18 PRINT#4," [221] [221] [221] [202] ART DES FEHLERS (PAUSCHALTEXT)"X$; 19 PRINT#4," [221] [221] [221]"X$; 20 PRINT#4," [221] [221] [202] FEHLERGRAD: 1 = LEICHTER FEHLER OHNE"RQ$; 21 PRINT#4," [221] [221] 2 = SCHWERER FEHLER, WIRD FEHLERMELDUNG"X$; 22 PRINT#4," [221] [221] VERURSACHEN"X$; 23 PRINT#4," [221] [221]"X$; 24 PRINT#4," [221] [202] FEHLERCODENUMMER (SIEHE UNTEN)"X$; 25 PRINT#4," [221]"X$; 26 PRINT#4," [202] BASIC PROGRAMMZEILENNUMMER 27 [152]4 28 [152]4,"VERZEICHNIS DER VORKOMMENDEN FEHLERCODES MIT BEDEUTUNG: 30 PRINT#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] 40 [129]I[178]1[164]AF:[139][194](53003[170]I)[178].[167]60 50 [152]4,A$(I) 60 [130] 80 [152]4:[152]4,"(C) NH-201187-ARR REV7 99 CLOSE4:END 100 IFPEEK(53000)THEN110 101 PRINT#4,"DER FEHLER NR. 8 (SPRUNG AUF REM- ODER TRENNZEILE) 102 [152]4,"WURDE NICHT GELISTET, DA ER ZU HAEUFIG AUFTRAT.":[152]4 110 [139][194](53002)[167]120 111 [152]4,"DIE FEHLER NR. 7 (GOTO -> STRUKTUR) UND NR. 17 (THEN GOTO) 112 PRINT#4,"WURDEN NICHT GELISTET, DA SIE ZU HAEUFIG AUFTRATEN.":PRINT#4 120 IFPEEK(53003)THEN130 121 PRINT#4,"DIE FEHLER NR. 12, 13 UND 14 WURDEN NICHT GELISTET. 122 [152]4 130 [142] 200 [129]I[178]1[164]AF:B$[178]"" 202 [135]A$:[139]A$[178]"@"[167]210 204 B$[178]B$[170]A$[170][199](13):[137]202 210 A$(I)[178][200](B$,[195](B$)[171]1):[130]:[142] 1000 [129]I[178]52992[164]52996:A$[178]A$[170][199]([194](I)):[130]:[139]A$[179][177]"NSS88"[167]1100 1001 [139][194](53001)[178]123[167]1102 1002 [139][194](53001)[179][177]222[167]1100 1003 [129]I[178].[164]AF[171]1:A[178]A[170][194](I[170]53004):[130]:[139]A[178].[167]1104 1004 [133]"LOADDATUM XX.XX.19XXCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";D$ 1005 [133]"NAME PROGRAMM XCMDCMDCMD";N$ 1006 V$[178][199](48[170][194](52997))[170]"."[170][199](48[170][194](52998)) 1007 [139]V$[179][177]"5.0"[167]1106 1008 [142] 1100 [153]"LOADBITTE ERSTELLEN SIE ERST EINE LISTE MIT DEM BKS (VERS. >= 5.0)":[128] 1102 [153]"LOADBITTE UNTERBRECHEN SIE DAS BKS PROGRAMM NICHT !":[128] 1104 [153]"LOADDAS TESTPROGRAMM ENTHIELT KEINE FEHLER !":[128] 1106 [153]"LOADFALSCHE VERSIONSNUMMER ! 2000 DATA1 = DIREKT NACH DER ZEILENNUMMER FOLGT EIN NULLBYTE (DIES WIRD ZU LIST- 2002 DATA" SCHUTZZWECKEN VERWENDET)",@ 2004 DATA2 = IM PROGRAMMTEXT KOMMT EIN UEBERFLUESSIGES LEERZEICHEN VOR,@ 2006 DATA"3 = EIN THEN, GOTO, LIST ETC. BEFEHL ZEIGT AUF EINE NICHT EXISTIERENDE 2008 [131]" ZEILE",@ 2010 [131]4 = DIE ZEILENNUMMER ALS PARAMETER IST GROESSER ALS 63999,@ 2012 [131]5 = DIE ZEILENNUMMER ALS PARAMETER ENTHAELT FALSCHE ZEICHEN (BEISPIELS- 2014 [131]" WEISE GOTO 4+6)",@ 2016 [131]6 = EINE BASIC ZEILE IST LAENGER ALS 255 ZEICHEN,@ 2018 [131]"7 = EIN GOTO ODER THEN BEFEHL ZEIGT AUF EINEN BEFEHL WIE RETURN, GOTO, 2020 DATA" END USW., DEN MAN AUCH EINFACH ANSTELLE DES SPRUNGBEFEHLES HAETTE 2022 [131]" SETZEN KOENNEN",@ 2024 [131]8 = EIN SPRUNGBEFEHL ZEIGT AUF EINE REM- ODER TRENNZEILE. DIES KANN ZU 2026 [131]" PROBLEMEN BEIM ABTIPPEN FUEHREN, WENN DIE ANGESPRUNGENE ZEILE WEG- 2028 DATA" GELASSEN WIRD.",@ 2030 DATA9 = EINE BASIC ZEILE IST LAENGER ALS 255 ZEICHEN,@ 2032 DATA10= EIN SPRUNGBEFEHL ZEIGT AUF SICH SELBST (Z.B. 10 GOTO 10),@ 2034 DATA11= DER BEFEHL 'CONT' DARF NICHT IM PROGRAMMTEXT VORKOMMEN,@ 2036 DATA12= DER BEFEHL 'STOP' SOLLTE NICHT IM PROGRAMMTEXT VORKOMMEN,@ 2038 DATA13= DER BEFEHL 'NEW' SOLLTE NICHT IM PROGRAMMTEXT VORKOMMEN,@ 2040 DATA14= DER BEFEHL 'LET' SOLLTE NICHT IM PROGRAMMTEXT VORKOMMEN,@ 2042 DATA15= HINTER EINEM REM-BEFEHL STEHT EIN GESHIFTETES L (LISTSCHUTZ),@ 2044 DATA16= EIN ILLEGALES TOKEN KOMMT IM PROGRAMMTEXT VOR,@ 2046 DATA"17= DER BEFEHL 'GOTO' SOLLTE NICHT DIREKT HINTER 'THEN' STEHEN, EINER 2048 [131]" VON BEIDEN GENUEGT",@ 2050 [131]18= HINTER EINEM BEFEHL FEHLT DER PARAMETER,@ 2052 [131]19= HINTER GO FEHLT TO,@ 2054 [131]"20= HINTER GOTO, RUN ETC. FOLGEN WEITERE BEFEHLE, DIE NIEMALS AUSGE- 2056 DATA" FUEHRT WERDEN",@ 2058 DATA21= EINE ODER MEHRERE KLAMMERN ZU VIEL ODER ZU WENIG,@ 2060 DATA22= DAS ZEICHEN '^' ZUR POTENZIERUNG SOLLTE VERMIEDEN WERDEN,@ 2062 DATA23= DER BEFEHL 'PRINT#' WURDE MIT ?# ABGEKUERZT,@ 2064 DATA24= FALSCHE REIHENFOLGE DER BASIC-ZEILEN,@ 2066 DATA25= EIN FALSCHER LINKPOINTER KOMMT VOR,@ 2068 DATA26= ON OHNE LEGALEN SPRUNGBEFEHL,@ 2070 DATA27= THEN OHNE IF,@ 2072 DATA28= DER POINTER 45/46 ZEIGT NICHT GENAU AUF DAS ENDE DES BASIC-PRO- 2074 DATA" GRAMMES",@ 2100 : 2102 REM ********************** 2103 REM * * 2104 REM * FRAGEN ? * 2106 REM * NIKOLAUS HEUSLER * 2108 REM * ZWENGAUERWEG 18 * 2110 REM * 8000 MUENCHEN 71 * 2112 REM * TEL. 089/792940 * 2114 REM * * 2116 REM * REVISED 151287 /NH * 2117 REM * REVISED 070188 /NH * 2118 REM * * 2120 REM * (C)OPYRIGHT * 2122 REM * NIG SOFTWARE SER- * 2123 REM * VICE (NSS), * 2124 REM * NH-201187-ARR * 2125 REM * * 2126 REM * RELEASED FOR 64'ER * 2127 REM * LELI-TEST (RS) * 2128 REM * * 2130 REM **********************